home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / GFA basic training.adf / Sound / LASER.LST < prev    next >
File List  |  1989-06-01  |  633b  |  42 lines
  1. ' LASER GERÄUSCH
  2. @init
  3. grenze1%=1                      ! Untere Länge
  4. grenze2%=254                    ! Obere Länge
  5. @pulswelle
  6. WAVE 0,wert&()
  7. '
  8. grenze1%=8
  9. grenze2%=240
  10. @pulswelle1
  11. WAVE 3,wert1&()
  12. '
  13. freq%=1000
  14. zeit%=5
  15. '
  16. FOR n%=1 TO 7
  17.   SOUND freq%,zeit%,255,0
  18.   SOUND freq%,zeit%,255,3
  19. NEXT n%
  20. END
  21. '
  22. PROCEDURE init
  23.   DIM wert&(255)
  24.   DIM wert1&(255)
  25. RETURN
  26. PROCEDURE pulswelle
  27.   FOR i%=0 TO grenze1%
  28.     wert&(i%)=-127
  29.   NEXT i%
  30.   FOR i%=grenze1% TO grenze2%
  31.     wert&(i%)=127
  32.   NEXT i%
  33. RETURN
  34. PROCEDURE pulswelle1
  35.   FOR i%=0 TO grenze1%
  36.     wert1&(i%)=-127
  37.   NEXT i%
  38.   FOR i%=grenze1% TO grenze2%
  39.     wert1&(i%)=127
  40.   NEXT i%
  41. RETURN
  42.